Top 10k strings from Profile 2 (1984)(McGraw-Hill Book Company UK)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
2 nm=(f$(i,5
2 end=end-(l$(end)=b$):
2 THEN PRESS ENTER
2 SAFEGUARD YOUR FILE, TYPE
2 ;" WAIT ":
2 ;" "
2 ((pl+l(i))/256
1 z)+ff*(ff>z):
1 z$=z$+(("(
1 yo=(yo+l(ff))*(ff<nf)*(hi=w)+(yo-l(ff-(ff
1 y$=y$+(x$(h)
1 xf"I_*I_+"G_"I_}
1 x@ <<<xD<<
1 x$=l$(i,11
1 x$="="+v$:
1 w;"SORTING":
1 w;" Error in command ":
1 w)*(hi=-w)+yo*vs:
1 tot=tot+r*t:
1 t)+(l$(i,st
1 st=st+l(i):
1 s)+(s-yo)*(yo+32
1 promaster3
1 promaster2
1 promaster
1 promast1
1 pl=pl+l(i):
1 pl=pl+l(f):
1 pl+l(f)<32
1 pbasic 8
1 p$=p$+c$+t$:
1 p$=p$+c$+t$+(e$
1 p$=p$+((c$+r$)
1 os=(a$="s"
1 op=(a$="p"
1 o$=".00000":
1 nm)+"l$(i,"+
1 nameC0wdthN0typeC0d.p.N0
1 name wdth type d.p.V
1 m$="vofrpsntid?l":
1 len=fi-st:
1 l$(x+xo)=b$
1 l$(dim,s):
1 k=k+(k=z):
1 k;("No problems")
1 j=fi-st-dp-
1 j+l(i)-w):
1 ic=((ch=34
1 i$="Condition: "+v$+n$:
1 fi=st+l(i)-w:
1 fi+")"+(("(
1 ff=ff+hi*(((hi
1 f$(i),l(i):
1 err=(l$(i,5
1 err=(f$(i,
1 end=end-(end>max):
1 end=end*(end>z)+(end<w):
1 eic=(ch=34
1 d$=(n$+"Count "+("for "
1 ct=((ch-96
1 chct=chct+ic-eic:
1 Press any key to go on
1 Press any key to continue
1 Illegal Filename
1 Created with Ramsoft MakeTZX
1 ;("Error at record "+
1 ;"your file.";
1 ;"the specifi-";
1 ;"places to which you want"'
1 ;"other key to";
1 ;"numeric data shown":
1 ;"fields in";
1 ;"done, or any";
1 ;"d,f,i,l,n,o,p,r,s,t,v
1 ;"continue. ":
1 ;"cations for";
1 ;"all entries.";
1 ;"STOP THE TAPE":
1 ;"SORTED ":
1 ;"Records remaining: ";max-end:
1 ;"Records entered: ";end;
1 ;"Record ";k
1 ;"Press ENTER for next":
1 ;"Press 'y' if";
1 ;"Please enter";
1 ;"Please check";
1 ;"If error type
1 ;"Error in entry at line ";y;" col ";err:
1 ;"COMMAND MODE"''
1 ;"CHECKING":
1 ;"CAPS SHIFT 1";
1 ;"Book Company";
1 ;"Any other key to return":
1 ;"ANY KEY TO CONTINUE":
1 ;"- N for numeric"'
1 ;"- C for character"
1 ;"(d) The number of decimal"'
1 ;"(c) The type of data"'
1 ;"(b) The field width"'
1 ;"(a) The heading, or name"
1 ;"(UK) Limited";
1 ;"(Recorder set to PLAY)":
1 ;" TO FINISH";
1 ;" TAPE VERSION LOADING ":
1 ;" STOP THE TAPE ":
1 ;" START THE TAPE ":
1 ;" PLEASE WAIT ":
1 ;" MICRODRIVE VERSION LOADING ":
1 ;" C.A.Street";
1 ;" PROFILE 2 ";
1 ;" "'
1 8D x<D8Dxx
1 0000000000000000000000000000000000000000000000000000
1 ,z;"Use arrow keys to go up or down":
1 ,z;"Type y to delete,n to continue":
1 ,z;"Enter replacement equation below"
1 ,z;" Enter field name"'':
1 ,z;" Now enter print fields"'':
1 ,"wdthN0",5
1 ,"typeC0",5
1 ,"d.p.N0",4
1 *i*(a$=m$(i)
1 )-(r<z)+(dp=z)
1 (pl+l(i)-256
1 (pl+l(f)):
1 ("Condition: "
1 '''"This is a short program which"'"allows you to set up PROFILE 2."'"You will need to enter the"'"following information for each"'"field :-"''
1 '''"Please type the name for your"'"file (eight letters at most).":
1 ''"There are few limitations on"'"what you may choose for (a),(b),"'"(c) and (d) but you are advised"'"to think carefully as it is not"'"possible to change things once"'"the file has been set up."
1 ''"If you are not ready to proceed"'"the simplest thing to do is to"'"switch the computer off, then"'"re-read the manual, and write"'"down the headings etc., ready"'"for entry later on. There is a "'"simple guide to setting up a "'"file in the manual.":
1 '"The restrictions are:-"''"FIELD NAME"'" Four characters starting"'" with a lower case letter"''"FIELD WIDTH"'" At least 4, at most 28"''"FIELD TYPE"'" C or N (upper case)"''"DECIMAL PLACES"'" At most 4, 0 when type C":
1 '"The PROFILE format is used to"'"enter the field specifications"'"each occupying one line:-"
1 '" Field names must be in lower"'" case, and four characters in"'" length. No more than four"'" decimal places are allowed."
1 '" Begin each entry on the left"'" of the space allowed.":
1 "nameC0",5
1 "Total ";x$+((" for "+v$)
1 "Output to Screen(s), printer(p), or both(b)?";
1 "File name:-";
1 "Enter condition below (last was ";v$;")":
1 "")+v$+" :"+
1 ""))+" is ";tot:
1 " "):
1 McGraw-Hill (UK) Ltd. 1983
1 McGRAW-HILL";
1 0 A
1 R
1 g